The Trig Explorer/The Trig Explorer.iso/pc/explorer/function.dxr/00141.ls

Text File | 1997-07-22 | 959 b | 30 lines

property position

on mouseDown me
  set the cursor of sprite the spriteNum of me to [member "Closed hand", member "Closed Hand Mask"]
  repeat while the stillDown
    set the castNum of sprite the clickOn to cast "adjacent"
    set the locH of sprite the clickOn to the mouseH
    set the locV of sprite the clickOn to the mouseV
    updateStage()
  end repeat
  if sprite the clickOn within 4 then
    set the castNum of sprite 11 to cast "adjacent"
  end if
  if sprite the clickOn within 3 then
    set the castNum of sprite 12 to cast "adjacent"
  end if
  doFunction()
  set the cursor of sprite the spriteNum of me to [member "hand", member "Hand Mask"]
  set the loc of sprite the spriteNum of me to position
end

on beginSprite me
  set the cursor of sprite the spriteNum of me to [member "hand", member "Hand Mask"]
  set position to the loc of sprite the spriteNum of me
end

on endSprite me
  set the cursor of sprite the spriteNum of me to 0
end